home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / calendar / allgoto.bas < prev    next >
BASIC Source File  |  1999-08-27  |  618b  |  12 lines
  1. Attribute VB_Name = "allgoto"
  2. Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
  3. Declare Function ReleaseCapture Lib "user32" () As Long
  4. Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
  5. Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
  6. Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
  7. Global Const WM_NCLBUTTONDOWN = &HA1
  8. Public Type POINTAPI
  9.         X As Long
  10.         Y As Long
  11. End Type
  12.